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ABSTRACT 


The  Commercial/Industrial  Type  Activity  (CITA)  lease/buy  decision  process 
does  not  lend  itself  to  rapid  manual  calculation  of  alternatives  over  long 
asset  lifetimes.  This  project  automates  the  cost  comparison  guidance  and 
procedures  in  0MB  Circular  A-76  and  its  associated  Cost  Comparison  Handbook, 
DOD  4100.33-H.  The  computer  input  program  is  designed  to  use  either  aggre¬ 
gated  or  disaggregated  management  information;  the  output  program  relieves 
the  user  of  the  necessity  for  repetitive  manual  calculations  covering  system 
or  asset  lifetimes  of  40  years  or  less,  and  prints  its  output  in  the  compara¬ 
tive  cost  format  prescribed  in  DOD  4100.33-H. 
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EXECUTIVE  SUMMARY 


1.  Authority  for  the  Study.  Letter,  DRCPA-S,  DARCOM,  8  July  1980,  subject: 
Buy  or  Lease  Cost  Model  -  Selected  Railway  Equipment,  as  amended  by  letter, 
DRCPA-S,  30  December  1980,  subject:  Operations  Research  Services  -  Buy  or 
Lease  Cost  Model  -  Selected  Railway  Equipment. 

2.  Problem  Statement,  There  is  no  means  for  performing  rapid  cost  calcu¬ 
lations  for  lease/buy  decisions  in  CITA  applications;  specifically,  there 

is  no  adequate  buy  or  lease  cost  model  applicable  to  railway  car  acquisition 
for  the  Defense  Freight  Railway  Interchange  Fleet  (DFRIF). 

3.  Objectives.  Development  of  a  buy  or  lease  model  for  the  DFRIF  application 
that  would  interface  with  current  management  data,  and  that  would  have 
generalized  application  to  cost  comparisons  of  CITA  functions. 

4.  Scope  of  Study.  Develop  a  model  which  will  consider  any  time  span 
through  40  years,  provide  the  model  to  the  sponsor,  and  review  model  appli¬ 
cations  as  requested  by  the  sponsor. 

5.  Methodology.  Interpret  guidance  in  0MB  Circular  A-76,  instructions  in  its 
associated  DOD  4100. 33-H,  and  translate  guidance  and  instructions  into  software 
programs  which  will  process  data  for  input  to  the  lease/buy  decision. 

6.  Findings  and  Conclusions.  The  models  developed  therein  process  data  as 
required  under  0MB  Circular  A-76  instructions  and  do  so  in  a  timely  manner 
with  minimum  manual  input. 

7.  Recommendations. 

a.  'That  the  A76  programs  developed  herein  be  used  as  the  buy  or  lease 
cost  model  for  selected  railway  equipment. 
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b.  That  the  programs  be  made  available  for  wide  disemmination  and  use 
for  CITA  evaluations,  particularly  those  employing  capital  assets  over  medium 
to  long  life  spans. 

c.  That  provision  be  made  for  periodic  update  of  the  programs  as  additional 
guidance  is  published. 


MAIN  REPORT 


I.  Background.  Historically,  the  Department  of  Defense  has  purchased 
railway  freight  cars  for  the  Defense  Freight  Railway  Interchange  Fleet 
(DFRIF).  In  part,  the  DFRIF  includes  586  100-ton  (12-wheel)  flatcars 

(NSN  2220-00-263-8935)  acquired  in  1953,  and  101  100-ton  (passenger  trucks) 
flatcars  (NSN  2220-00-263-8936)  acquired  in  1952.  These  flatcars  are  used 
to  ship  between  Defense  activities  and  installations  heavy  equipment  such 
as  tanks,  gun  mounts,  generators,  and  boilers.  As  these  cars  approach  the 
end  of  their  40-year  statutory  life,  the  question  arises  whether  it  would 
be  less  costly  to  lease  cars  rather  than  buy  them.  Lease/buy  calculations 
are  labor  intensive,  and  do  not  easily  permit  the  sensitivity  analysis 
necessary  for  comparison  of  alternatives,  particularly  over  long  life  spans 
of  major  systems.  The  purpose  of  this  study  is  to  provide  a  means  for  data 
input  to  the  decision  process. 

II.  Objective.  To  develop  a  computerized  model  under  0MB  Circular  A-76 
guidance  that  will  accomplish  rapid  calculation  of  alternatives  for  lease/ 
buy/mix  decisions  on  major  systems,  in  this  case  for  the  DFRIF. 

III.  Limits  and  Scope.  The  model  will  consider  any  time  span  through  40 
years,  the  industry-established  useful  life  of  railcars.  The  scope  of  the 
study  includes  development  of  the  model,  providing  the  model  to  the  sponsor, 
and  reviewing  model  applications  as  requested  by  the  sponsor. 

IV.  Assumptions. 

A.  The  model  must  interface  with  current  management  data,  i.e.,  not 
require  new  information  collection  and  interpretation  procedures. 


B.  The  Defense  Audit  Service  (DAS),  as  sponsor,  will  provide  input 


data  for  the  DFRIF  application. 

C.  The  model  will  have  generalized  application  to  cost  comparisons 
of  Commercial /Industrial  Type  Activities  (CITA)  functions. 

V.  Methodology.  The  development  of  any  model  usually  includes  three 
somewhat  overlapping  phases:  evaluation  of  current  procedures,  synthesizing 
a  methodology,  and  determining  required  changes  to  regulatory  documents.  For 
this  project,  competent  and  authoritative  regulation  prescribes  lease/buy 
calculations;  the  study  effort  requires  interpretation  of  detailed  procedures 
and  software  design  to  accomplish  those  procedures.  To  be  feasible  and 
acceptable,  any  proposed  design  or  methodology  must  be  within  present  capa¬ 
bilities,  use  available  resources,  integrate  with  current  management  informa¬ 
tion,  accept  both  aggregated  and  disaggregated  data,  and  relieve  the  user  of 
the  necessity  for  repetitive  manual  calculations  covering  the  long  lifetimes 
of  major  systems. 

A.  A  typical  lease/buy  calculation  in  the  private  sector  is  concerned 
with  the  financial  advantage  or  disadvantage  of  leasing  versus  the  costs  of 
ownership.  Included  are  such  cost  elements  as  purchase  price,  interest  rate, 
utilization,  operating  costs,  inflation  rate,  marginal  tax  rate,  lease  payments, 
property  taxes,  administration,  depreciation,  and  residual  values.  Public 
sector  in-house  (buy)  comparative  analysis  considers  eight  direct  and  related 
indirect  costs  plus  four  additional  elements  concerning  opportunity  costs, 
one-time  costs,  utilization  of  government  capacity,  and  loss  of  Federal  tax 
revenue:  Contracting  out  (lease)  analysis  considers  seven  elements  of  cost 
to  include  contract  price  and  related  in-house  costs  that  may  be  incurred  by 
the  Government  as  a  result  of  leasing,  plus  seven  additional  elements  concerning 


such  costs  as  Government-furnished  facilities,  conversion  from  buy  to  lease. 
Federal  income  taxes,  and  disposal  of  assets. 

B.  0MB  Circular  A-76  establishes  policies  and  procedures  to  determine 
whether  needed  commercial  or  industrial  type  products  and  services  should  be 
done  by  contract  (lease)  with  private  sources  or  in-house  (buy)  using  Government 
facilities  and  personnel.  Detailed  instructions  for  implementing  0MB  Circular 
A-76  cost  comparison  procedures  are  prescribed  in  DOD  4100. 33-H,  Cost  Comparison 
Handbook.  These  two  documents  were  identified  by  the  sponsor  as  references  for 
this  model.  The  detailed  instructions  in  the  handbook  prescribe  the  format  for 
lease/buy  comparison,  establish  consistency,  assure  that  all  substantive  factors 
are  considered,  and  maintain  the  uniformity  so  essential  to  a  comprehensive  and 
valid  comparative  cost  analysis.  For  these  reasons,  the  Cost  Comparison  Hand¬ 
book  was  selected  as  the  narrative  model  for  conversion  to  a  software  model 

or  program.  The  study  sponsor  requested  the  development  of  a  full  program 
for  general  application  rather  than  a  reduced  version  for  limited  application 
to  a  specific  function  or  area,  in  this  case  the  DFRIF.  The  complete  version 
serves  as  a  checklist  for  both  user  and  reviewer,  and  maintains  a  more  detailed 
audit  trail  for  increased  credibility. 

C.  Cost  elements  to  be  considered  in  the  lease/buy  decision  are  listed 
in  Exhibit  1  (Cost  Comparison  Form)  to  Chapter  II  of  the  Cost  Comparison 
Handbook.  Appendix  A  to  this  study  displays  this  form.  The  A-76  software 
model  developed  as  a  result  of  this  study  produces  output  in  a  format  which 

is  identical  to  the  Cost  Comparison  Form  except  for  the  addition  of  line  36, 

Cost  of  Mixed  Performance.  This  line,  which  is  the  sum  of  lines  33  and  34,  is 
of  interest  only  where  both  in-house  and  contracting-out  performances  accomplish 
the  mission(s),  as  in  meeting  surge  or  other  temporary  requirements.  The  line  36 


5 


feature  does  not  provide  the  optimum  mix  solution,  if  any  exists.  Through 
iteration,  i.e.,  repetitive  runs  at  different  lease/buy  mixes,  line  36  will 
indicate  changes  in  costs  at  the  different  mixes.  The  program  does,  however, 
provide  for  changes  in  asset  mix,  a  particularly  useful  feature  over  long 
periods  of  study  when  some  assets  are  replaced,  added,  or  reduced.  The 
DFRIF  application  illustrates  this.  Appendix  B  lists  the  components  of 
each  cost  element,  provides  a  short  description,  and  furnishes  the  handbook 
reference  for  a  more  detailed  definition.  Appendix  C  describes  the  process 
flow  to  develop  the  data  for  printer,  terminal,  or  video  presentation.  The 
usual  output  is  by  printout  because  it  is  best  suited  to  evaluation,  repro¬ 
duction,  and  inclusion  in  correspondence  and  reports.  Appendix  D  provides 
the  format  for  data  input.  The  usual  input  mode  is  via  terminal  keyboard, 
read  from  a  standard  80  column  worksheet  prepared  by  the  analyst.  Inputs 
may  also  be  accomplished  by  punched  cards,  magnetic  tape,  or  paper  tape. 

Data  may  be  entered  in  either  detailed  or  aggregated  form;  e.g.,  direct 
material  costs  (line  1)  may  be  entered  by  source  as  GSA  or  DLA,  or  may  be 
entered  as  a  total  under  "other."  Material  invoicing  documents  are  usually 
shown  at  full  cost;  i.e.,  include  a  mark-up  of  the  basic  cost;  if  not,  there 
is  provision  for  entry  of  prescribed  mark-up  rates.  Similarly,  there  is 
provision  for  automated  calculation  and  assignment  of  inflation,  overhead 
rates,  allocation  rates,  cost  of  capital,  deductions,  and  pro-rata  values. 
Appendix  E  is  DAS-provided  inputs  at  an  aggregated  level  as  shown.  Appendix  F 
is  a  user-level  explanation  for  use  of  the  A-76  software  programs.  Appendix  G 
is  the  output  produced  from  the  DAS  provided  input  shown  in  Appendix  E. 

Appendix  H  displays  the  results  of  sensitivity  analysis,  i.e.,  the  outcome 
resulting  from  various  changes  in  inputs.  Appendix  I  includes  the  two  software 


programs  A76IN  and  A760UT,  record  definitions  for  A76IN,  program  variable 
definitions  for  A760UT,  and  structured  systems  analysis  for  A760UT.  Appendix  I 
is  of  interest  primarily  to  software  programming  personnel. 

VI.  Analysis  and  Discussion.  Analysis  of  cost  elements  listed  in  Appendix  B 
and  discussion  of  their  calculation  are  found  in  Appendix  C,  The  Program  A76 
Process. 

VII.  Findings  and  Conclusion.  Detailed  test  runs  of  the  software  developed 
in  interpretation  of  DOD  4100. 33-H  lead  to  the  conclusion  that  the  A76  programs 
can  provide  within  current  management  information  and  techniques  the  processed 
data  required  in  support  of  the  lease/buy  decision  process. 

VIII.  Recommendations. 

A.  That  the  A76  programs  developed  herein  be  used  as  the  buy  or  lease 
cost  model  for  selected  railway  equipment. 

B.  That  the  programs  be  made  available  for  wide  disemmi nation  and  use 
for  CITA  evaluations,  particularly  those  employing  capital  assets  over  medium 
to  long  life  spans. 

C.  That  provision  be  made  for  periodic  update  of  the  programs  as 
additional  guidance  is  published. 
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COMPARATIVE  COST  Of  IM-HOUSI  ADO  CONTRACTING-OUT 
rUUrORMAMCR  or  (rroouct/rirvicii 


APPENDIX  A 


COST  OF  IN-HOUSE  OVtR  (UNDE*)  COS1  Of 
CONTRACT INC -OUT  PERFORMANCE 
(LINE  II  -  LINE  ]«) 


APPENDIX  B 


DESCRIPTION  OF  COST  ELEMENTS 


Element  (Cost  Comparison  Handbook  Page  Number) 

Performance  (Chapter  III) 

Direct  Material  Costs:  Goods,  parts,  or  supplies  consumed 
(page  12).  Elements  include  GSA  wholesale,  GSA  retail, 

GSA  nonstores,  DLA  wholesale  stock  fund,  DLS  direct  stock 
fund,  and  others. 

Material  Overhead:  Additional  costs  of  acquiring,  handling, 
storing,  and  controlling  material  (page  17).  Includes  over¬ 
head  labor,  fringe  benefits,  travel,  operating  supplies, 
maintenance,  office  supplies,  utilities,  depreciation,  rent, 
allocations  to  central  functions,  and  others. 

Direct  Labor:  Wages  or  salaries  charged  only  to  one 
specific  product  or  service  (page  19). 

Fringe  Benefits:  Allowances  and  services  in  addition  to 
wages  or  salaries  (page  24).  Includes  retirement,  disability, 
insurance,  awards,  FICA,  hazard  pay,  differentials,  and 
others. 

Operations  Overhead:  Indirect  costs  incurred  to  produce  or 
deliver  products  or  services  (page  28).  Not  to  be  confused 
with  material  overhead  or  G&tA  Expense.  Includes  indirect 
labor,  indirect  materials /supplies,  depreciation,  rent, 
maintenance /repair,  support  costs,  utilities,  insurance, 
overtime /premium  pay,  and  others. 

Other  Direct  Costs:  Direct  costs,  exclusive  of  direct 
material  and  direct  labor,  incurred  for  a  particular  product 
or  service  (page  43).  Examples  include  service  center 
charges  and  purchased  services. 

General  and  Administrative  Expense:  Financial,  management,  or 
other  expenses  incurred  for  the  benefit  of  an  organizational  unit 
as  a  whole  (page  44).  Examples  include  director  and  staff, 
centralized  personnel  and  administrative  services,  and  security. 

Inflation:  Known  or  anticipated  changes  in  cost/price  levels  of 
cost  elements  one  through  seven  abpve  (page  49). 


Total:  The  sum  by  years  of  items  one  through  eight  above. 


Line 


Element  (CCH  Page) 


Performance  by  Contracting  Out  (Chapter  IV) 

10  Contract  Price:  The  amount  to  be  paid  to  the  contractor 
for  goods / se  rvices  described  in  the  statement  of  work 
(page  51). 

11  Transportation  Cost:  Cost  to  the  Government  of  transporta¬ 
tion  provided  in  connection  with  a  product  or  service  obtained 
by  contract  (page  52).  Includes  nonrecurring  and  recurring 
costs. 

12  Contract  Administration:  Costs  incurred  by  the  Government 
in  assuring  that  the  contract  is  faithfully  executed  by  both  the 
Government  and  the  contractor  (page  53). 

13  Government-Furnished  Property:  Property  furnished  to  a  con¬ 
tractor  in  connection  with  the  performance  of  a  contract  (page 
53).  Includes  nonrecurring  and  recurring  costs.  Examples 
include  land,  buildings,  facilities,  equipment,  tooling,  materials, 
and  supplies. 

14  Standby  Maintenance:  Nonrecurring  and  recurring  expenses  to 
keep  property  available  for  possible  use  in  providing  the  needed 
product  or  service  (page  56). 

15  Other  Costs:  Any  additional  Government  costs  not  accounted  for 
elsewhere  which  would  result  from  contracting  out  (page  58). 

16  General  and  Administrative  Expense:  Expense  applicable  to  the 
in-house  effort  related  to  contracting  for  a  product  or  service 
(page  58). 

17  '  Total.  The  sum  by  year  of  items  ten  through  sixteen  above. 

Other  Considerations  (Chapter  V) 

Additions  and  Deductions  to  In-House  Performance 

18  Cost  of  Capital:  An  additional  imputed  charge  or  opportunity  cost 
for  the  Government's  investment  in  facilities  and  other  assets 
necessary  to.  produce  goods  or  provide  services  (page  62). 


B-2 


a 


Line 


Element  (CCH  Page) 


19 

20 

21 

22 

Additions 

23 

24 

25 

26 

27 

28 


One-Time  New  Start  Costs:  Uncapitalized  costs  associated 
with  establishing  an  in-house  capability  and  discontinuing  a 
contract  arrangement  (page  67). 

Other  Costs:  Additional  costs  not  specifically  included  in 
cost  elements  one  through  eight  (page  74). 

Other  Costs:  Deductible  costs  not  specifically  considered 
in  any  of  the  foregoing  classifications  of  cost  (page  74). 

Algebraic  total  of  lines  eighteen  through  twenty-one. 

and  Deductions  to  Contracting -Out  Performance 

Cost  of  Capital  on  Gove rnment -Furnished  Facilities:  Cost 
of  assets  retained  by  the  Government  to  assure  performance 
in  the  event  of  significant  contract  interruption  or  delay,  or 
required  to  assure  contractor  performance  (page  63). 

Utilization  of  Government  Capacity:  Costs  of  changes  to  or 
idling  of  government  facilities  resulting  from  contracting  out 
(page  69).  Includes  standby  costs,  cost"  of  replacement  by 
other  products  or  services,  or  underutilization  costs. 

One-Time  Conversion  Costs.  Costs  related  to  discontinuance 
of  in-house  activity  to  obtain  the  product  or  service  by  contract 
(page  67).  Includes  material-related,  labor -related,  other 
costs  such  as  inventories  or  extended  leasing  agreements,  and 
general  and  administrative  expense. 

Other  Costs:  Costs  not  specifically  covered  under  elements 
23  through  25  (page  74). 

Federal  Income  Taxes;  Deductions  from  the  net  cost  to  the 
Government  of  an  estimated  amount  of  income  tax  to  be  paid 
by  the  contractor  on  his  income  which  is  subject  to  that  tax 
(page  74). 

Net  Proceeds  from  Disposal  of  Assets  (Annual  Value):  Deduc¬ 
tions  from  the  cost  to  the  Government  when  contracting  reduces 
the  need  for  fixed  assets  which  the  Government  used  in  providing 
the  product  or  service  (page  65). 
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Line 


Element  (CCH  Page) 


29  Other  Costs:  Other  deductions  from  the  cost  to  the  Govern¬ 
ment,  i.  e.  ,  savings,  resulting  from  contracting -out  (page  74). 

30  Total:  Algebraic  total  of  lines  23  through  29. 

Minimum  Cost  Differential  (Chapter  VI) 

31  New  Start:  An  in-house  cost  margin  to  cover  the  risks  inherent 
in  Government  investments  in  industrial  facilities  (page  75). 

32  Conversion:  A  contracting -out  cost  margin  to  cover  such 
Government  risks  as  decreased  effectiveness  and  personnel 
turbulence  (page  75). 

Summary  (Program  output  summarizing  elements  of  cost) 

33  Adjusted  Cost  of  In-House  Performance:  The  algebraic  sum 
of  lines  9,  22,  and  31. 

34  Adjusted  Cost  of  Contracting -Out  Performance:  The  algebraic 
sum  of  lines  17,  30,  and  32. 

35  Cost  of  In-House  Over/Under  (-)  Cost  of  Contracting-Out 
Performance:  Line  33  minus  line  34. 

36  Cost  of  Mixed  Performance:  Line  33  plus  line  34.  As 
indicated  in  the  main  report,  this  line  is  of  interest  only 
where  both  in-house  and  contract  effort  is  required  to  meet 
short-term  requirements.  This  line  does  not  identify  the 
optimum  mix  solution,  but  only  indicates  changes  in  cost 

/  at  different  lease/buy  mixes. 
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APPENDIX  C 


THE  PROGRAM  A76  PROCESS 

1.  The  32  cost  elements  described  in  Appendix  B  may  expand  to  a  maximum  of  76 
components  as  listed  in  Appendix  D.  This  accommodates  data  input  at  a  detailed 
level,  if  desired,  e.g.,  line  1  (direct  material)  may  be  entered  as  1A  (GSA 
wholesale),  IB  (GSA  retail),  1C  (GSA  nonstores),  ID  (DLA  wholesale  stock  fund), 

IE  (DLA  direct  stock  fund),  and  IF  (other).  The  purpose  for  this  spread  of 
material  sources  is  to  provide  for  price  mark-up  to  include  costs  of  acquisi¬ 
tion  and  storage  functions.  These  A-76  directed  percentage  mark-ups  are  as 

shown  in  card  columns  (cc)  57-60;  e.g.,  for  line  1A  it  is  21%,  entered  as  2100, 
which  calculates  the  cost  as  121%  of  the  dollars  and  cents  (right  justified)  of 

the  cost  entered  in  cc  4-18.  Normally,  however,  material  billing  includes  all 

costs;  in  these  cases  no  entry  is  required  in  cc  57-60.  If  material  sources 
are  not  known,  or  if  all  material  is  rolled  up  in  one  cost,  that  entry  may 

be  made  on  line  IF,  cc  4-18.  The  program  sums  lines  1A  through  IF  and  dis¬ 
tributes  that  sum  to  line  1  of  each  year  in  the  analysis.  The  same  input  and 
processing  procedures  are  accomplished  for  lines  2A,  2B,  .03,  04,  05A,  05M,  05N, 

31  A,  and  31B. 

2.  Inflation  is  handled  somewhat  differently  by  the  A76  programs.  Except  for 
depreciation,  and  in  compliance  with  Appendix  4,  D0D  4100. 33-H,  the  A76  programs 
provide  for  entry  of  inflation  factors  for  each  line;  this  to  accommodate  the 
differing  rates  of  inflation  for  the  diverse  cost  elements.  Inflation  rates  may  be 
entered  from  one  tenth  of  one  percent  (0010)  through  99.99%  (9999)  in  cc  57-60;  if 
there  is  no  entry,  the  program  reads  it  as  zero  inflation.  Inflation  factors  used 
in  this  study  were  derived  from  D0D  Deflators  dated  5  May  1980.  References  to  the 
A-76  directive  and  to  Appendix  D  (Data  Input  Format)  of  this  study  will  indicate 
that  inflation  factors  are  not  applied  to  depreciation  costs  (02H,  05C), 
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non-recurring  costs  (11A,  13A,  14A,  15A),  capital  costs  (23,  24A,  24B, 

24C),  one  time  conversion  costs  (25A,  25B,  25C,  25D,  32A,  32B),  and  new  start 
costs  (31  A,  31 B ,  31C,  310,  31E,  31F,  31G). 

3.  Other  factor  column  entries,  cc  61-64,  specify  the  percentage  or  rate  at 
which  cost  entries  are  to  be  assigned  to  each  year  of  the  study.  The  factors 
or  rates  shown  in  Appendix  D,  lines  050,  05P,  23,  25A,  24B,  24C,  31A,  31B, 

31C,  31 D ,  31E,  32A,  and  32B  are  as  prescribed  in  the  A-76  directive.  The  pre¬ 
scribed  rates  shown  in  lines  19,  25A,  25B,  25C,  and  25D  assign  one-time  costs 
at  a  rate  of  20%  to  each  of  the  first  five  years  of  the  study;  these  years  are 
identified  by  cc  73-76. 

4.  In  line  5C,  the  residual  or  salvage  factor  in  cc  69-72  computes  the  residual 
value  of  the  asset  at  the  end  of  its  economic  life  or  its  mandatory  life,  if 
prescribed.  The  years  of  the  asset  life  are  entered  in  cc  77-78.  The  years 

in  which  assets  are  considered  in  the  study  are  entered  in  cc  73-76.  Assets 
may  begin  life  before  or  during  the  years  to  be  studied,  ana  may  end  life  or 
be  withdrawn  during  or  after  the  years  to  be  studied.  This  feature  permits 
consideration  of  a  changing  asset  mix  during  the  years  under  study.  For  line  5C, 
the  factor  or*  rate  in  cc  61-64  is  used  by  the  program  to  calculate  the  cost  of 
disposal  which  enters  into  line  28.  Line  5C  depreciates  assets  on  a  straight 
line  basis,  per  the  A-76  directive.  Given  that: 

C  =  acquisition  cost 
S  =  salvage  value 
D  =  disposal  cost 
L  =  1 ife  of  the  asset(s) 
f  =  age  of  the  asset(s) 

Annual  depreciation  entries  in  line  5C  are  calculated  as  follows: 

(C-S)/L  ’  (A) 

The  remaining  book  value  to  be  used  in  line  28  is  thus: 

( ( C-S )/L )  (L-Y)  +  S  (B) 
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Directive  A-76  specifies  that  the  net  proceeds  from  the  disposal  of  assets 
are  to  be  assigned  annually  at  ten  percent  of  the  estimated  market  value  minus 
the  book  value.  In  developing  an  estimated  market  value,  it  was  observed  that 
one  railroad  depreciated  at  15  years,  another  at  20  years.  This  rate  of 
depreciation  serves  to  reduce  corporate  income  taxes  and  property  taxes.  It 
also  reduces  market  value  after  twenty  years  to  zero  plus  net  salvage  value, 
and  the  A76  program  scenario  is  designed  to  accomplish  this.  Under  straight- 
line  depreciation,  book  value  is  greater  than  market  value  until  full  depreciation 
is  taken.  At  this  time,  book  value  equals  market  value  equals  net  salvage  value. 
Sum-of-the-years  digits  (SOYD)  was  selected  as  representative  of  estimated 
market  value  because  of  its  general  acceptance  for  application  to  capital  assets, 
and  because  the  SOYD  curve  has  characteristics  similar  to  the  market  value  of 
trucks  as  listed  by  the  National  Automobile  Dealer's  Association  "Blue  Book." 

The  use  of  SOYD  helps  to  generalize  the  model  for  evaluation  of  capital-intensive 
cases.  Line  28  calculates  the  estimated  market  value  in  any  given  year  as  follows 

(C-S)  ♦  (S-D)  (0 

The  second  term  develops  a  SOYD  decimal  value  which,  when  multiplied  by  the 
first  term  yields  the  remaining  book  value  less  net  salvage  value.  Because 
there  is  no  market  value  after  twenty  years  except  salvage  value,  the  product 
of  the  first  two  terms  declines  to  zero  at  the  end  of  the  twentieth  year, 
leaving  only  net  salvage  value  thereafter.  The  line  28  process  is  thus 
described  as  one  tenth  the  difference  of  algorithm  (C)  minus  (B),  or  (C-B)(.l). 
Line  28  data  development  takes  place  with  no  input  other  than  that  in  line  5C. 

This  feature  avoids  laborious  manual  data  entry,  and  is  particularly  helpful 
in  comparisons  involving  additions  and  withdrawal  of  assets  during  the  years 
under  study. 
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5.  Line  18,  Cost  of  Capital,  is  also  derived  from  line  5C,  Operations  Overhead 
Depreciation.  The  program  transfers  line  5C  cost  entries  in  cc  4-18  to  the  same 
columns  in  line  18;  here  the  net  book  value  is  calculated  as  in  5C,  and  one  tenth 
of  this  value  is  assigned  to  each  year  the  asset  is  used  in  the  years  under  study. 
As  noted  earlier,  straight-line  depreciation  results  in  a  book  value  which  is 
greater  than  market  value  until  full  depreciation  is  taken.  When  assets  are 
withdrawn  and  disposed  of  before  full  depreciation,  the  net  proceeds  are  more 
than  offset  by  the  undepreciated  value  of  the  asset.  The  effect  is  one  of 
negative  proceeds  which  translates  as  opportunity  cost  to  the  government  for 

the  foregone  opportunity  of  using  the  asset  to  end  of  its  depreciated  life. 

This  cost  is  accounted  for  by  applying  an  opportunity  cost  rate  of  10%  of  the 
net  book  value  to  line  18  for  each  year  in  the  period  of  performance.  As  with 
line  28,  line  18  data  development  takes  place  with  no  input  other  than  that  in 
line  5C. 

6.  Conventional  Circular  A-76  calculations  can  be  accomplished  for  lines  5C, 

18,  and  28,  if  desired,  by  alternate  entries  in  lines  5J,  20,  and  26,  respec¬ 
tively.  This  application,  demonstrated  in  Appendix  H,  requires  manual  calcula¬ 
tions  for  straight-line  depreciation,  cost  of  capital,  and  net  proceeds  from 
disposal  of  assets,  as  well  as  multiple  alternate  entries.  As  in  Appendix  H, 
this  method  may  be  used  to  bypass  SOYD  calculations,  making  net  book  value 
equal  to  market  value. 

7.  The  A76  model,  through  its  two  associated  software  programs  A76IN  and  A760UT, 
reflects  A-76  directive  guidance,  provides  for  flexibility  in  the  application  of 
inflation' and  other  factors,  allows  asset  mix  through  additions  and  withdrawals, 
and  makes  possible  the  rapid  calculation  of  sensitivity  data  for  quantitative 
input  to  the  decision  process.  The  penalty  for  this  flexibility  is  that  the 
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user  must  be  quite  aware  of  the  form  of  the  input  data  (e.g.,  is  it  detailed  or 
summary  data?)  and  be  aware  of  the  processes  or  subroutines  which  are  initiated 
as  a  result  of  data  entries. 

8.  The  A76IN  program  consists  of  330  lines  of  BASIC  language,  the  A760UT 
program  of  366  lines.  When  compiled,  A76QUT  runs  in  45  seconds,  requires  40 
CPUs,  and  will  compute  and  accumulate  data  for  40  years  or  less,  including 
both  period  (annual)  data  and  cumulative  data. 
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d  for  straight-line  depreciation.  In  which  case  omit  05C.  Additional  Lines  05J  may  be  added  for  other  costs, 
not  entered  and  Is  not  used.  It  functions  as  a  memo  entry  on  the  printout. 
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APPENDIX  E 


SUMMARY  DATA  INPUTS 


LINE  # 

COST  ELEMENT 

FIRST  YEAR  COST 

1 

In-House  Performance 

Direct  Material 

-0- 

2 

Material  Overhead 

-0- 

3 

Direct  Labor 

77,988 

4 

Fringe  Benefits  on  Direct  Labor 

20,276 

5 

Operations  Overhead 

1,218,768 

6 

Other  Direct  Cost 

127,052 

7 

General  and  Administrative  Expense 

116,729 

8 

Inflation 

N/A 

9 

Total 

1 ,560,813 

10 

Performance  by  Contractinq-Out 

Contract  Price  (Leasing  Cost) 

4,688,376 

11 

Transportation  Cost 

-0- 

12 

Contract  Administration 

187,535 

13 

Government  Furnished  Property 

-0- 

14 

Standby  Maintenance 

-0- 

15 

Other  Costs 

-0- 

16 

General  and  Administrative  Expense 

15.003 

17 

Total 

4,890,914 

18 

Additions  and  (Deductions) to  In-House' 
Performance 

Add: 

Cost  of  Capital 

316,549 

19 

One  Time  New  Start  Costs 

-0- 

20 

Other  Costs  (New  Flatcar  Procurement) 

5,359,515 

21 

Deduct  Other  Costs 

-0- 

22 

Total 

5,676,064 

/ 

Additions  and  (Deductions)  to 
Contractinq-Out  Performance 

23 

Cost  of  Capital  on  Government  Furnished 

-0- 

24 

Facilities 

Utilization  of  Government  Capacity 

-0- 

25 

One-Time  Conversion  Costs 

50,000 

26 

Other  Costs 

-0- 

Deduct: 

27 

Federal  Income  Taxes 

(93,768) 

28 

Net  Proceeds  from  Disposal  of  Assets 

313,700 

29 

Other  Costs 

-0- 

30 

Total 

226,182 

i, 

i 


E-l 


LINE  # 


COST  ELEMENT 


FIRST  YEAR  COST 


Minimum  Cost  Differential 


31  New  Start  -0- 

32  Conversion  48,351 

Summary 

33  Adjusted  Cost  of  In-House  Performance  7,236,877 

(Line  9  +  Line  22  +  31 ) 

34  Adjusted  Cost  of  Contracting-Out  5,165,447 

Performance 


Difference  2,071 ,430 


Other  inputs  provided  by  sponsor  included: 

Summary  Depreciation  Schedule,  from  which  was  developed 
the  Schedule  for  Removal  and  Addition  of  Flatcars 


DOD  Deflators  dated  5  May  1980 
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APPENDIX  F 


USING  THE  A76  PROGRAMS 
(Key  on  following  page) 


-ELLO 


'HP  RECOUNT  PASSWORDS 


o 


-0 


CE  III  B.KI.E2.  FPI !•  RUG 


:b.  :,:i.  is^wd? 
"GIN 


.  1981*  1  Os 45  RM 

BRSIC  <0 HEWLETT-PRCKRRB  CO  1979 


0 


:mte-  fil: 

•  5-'4=:r7't" 


.© 


-“©  ; 


PRME  NOW  -  R76XMPLE 
i  2  3  4  5  6  7 

>  0 1 c ‘ • = - 799  n 1 234567890 1 234567890 1 2345678901 234567890 1 234567890 1 234567S9 
7"  -  -  -00  0797  3 0 1 9 

IP-  ■  ~  ii  Q  (5)  0010  0100528140 


234567890123456789012345678901234567890123456789012345678901234567890123456789 
5000000  £000  3034 


9  FILE  PRINT-OUT  NEEDED  <Y/N>  ? 


1  2  3  4  5  6  7 

234567890 1234567990 123456789 01 23456789 01234567890 123456789 01 £3456789 01 £34567 89 
77988 0 0D I RECT  LRBORt  CIVILIRN  079700000000  100008019000 

'5C  1 87 1 73 0 OOPNS  OHERD  DEPRECIRTION  000000000010  £01 00528 1 400 

25B  500000 0DNE  TINE  CDNV  COSTS  LRBOP  000000002000  (*3000080'"“100 

-ECOPD  NUNBER  TO  DELETE  <USE  “0"  TU  EXIT  FRON  DELETION  ROUTINE?  ?j3 
_INE  NUNBER  3  HRS  NOW  BEEN  DELETED 

;ECORD  NUNBER  TO  DELETE  <USE  “0"  TO  EXIT  FROM  DELETION  ROUTINE? 70 
'EED  fi  NEW  PRINTOUT  FOR  EDITING  O^N>?  N  /'~\  l  1 0 1 

-NT  TO  MRKE  RDD IT IONS  TO  THE  FILE  <Y/ 


ii ju  o  i. 

-© 


.fi  A  r  i  i  vwu 

>?  N 

>vn?  ? 


END  OF  PROGRRN  "876  IN' 


G) 


s  RUN  CR760UT 


0 


;© 


ENTER  FILE  NRME  NOW  -  R76XMPLE.' —  ^ 

HOW  MRNY  YERRS  RRE  TO  EE  STUDIED?  -1  (it) 
HOW  MRNY  YERRS  RRE  TO  BE  STUDIED?  7iJ  VJi/ 
TRRTING  WITH  WHICH  YERP?  80 
TRNDBY . NOW  COMPUTING _ 


KEY  -  USING  THE  A76  PROGRAMS 


1.  Sign  on,  provide  password  when  requested. 

2.  Request  BASIC  language. 

3.  Call  program  A76IN. 

4.  Provide  filename. 

5.  Enter  data  after  prompt. 

6.  Enter  "Y"  to  request  another  header  if  desired. 

7.  Enter  "X"  to  signal  completion  of  data  input. 

8.  Request  file  printout  if  needed. 

9.  Request  record  deletion  if  required. 

10.  Exit  from  deletion  routine  when  desired. 

11.  Request  new  printout  or  additions  if  required. 

12.  If  printer  output  is  desired,  enter  "FILE  BASLIST:DEV=LP." 

If  terminal  output  is  desired,  go  to  step  13. 

13.  Call  program  CA760UT  (the  compiled  version  of  A760UT). 

14.  Identify  file  to  be  used. 

15.  Enter  "-1"  for  cumulative  data  as  well  as  annual  (period)  data. 
Enter  number  of  years  to  be  studied  and  the  starting  year. 
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OTHER  CONSIDERATIONS  (CHAPTER  V) 
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COST  OF  MIXED  PERFQkMANCE 

(LINE  iS  ♦  LINE.  34}  1213859120  1306584445  1907378903  1515911274  1632909786 
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'  FILES  A76SEN1  AND  A76SEN2 

CALCULATION  OF  MEAN  (AVERAGE)  COSTS  FOR  LINE  20  OTHER  COSTS 
IN  LIEU  OF  LINE  18  COST  OF  CAPITAL 


T  2  3  4  §  6  7 


COST 

USE 

MEAN  YEARS 
TIMES  ANNUAL 
DEPRECIATION 

COLUMN  2 
TIMES 
COLUMN  6 

FROM  PAGE 

E-3 

awBirtt: 

FROM 

TO 

MEAN 

IN  STUDY 

187,173 

52 

81 

i 

.5 

.0125 

BKBiMl 

82 

mm 

37 

18.5 

.4625 

360,378 

52 

mm 

2 

1.0 

.0250 

■BE9l£IDi 

24,034 

23,794 

82 

2 

1.0 

596 

83 

mm 

36 

18.0 

.4500 

5,248,808 

1  ,142,096 

53 

83 

3 

1.5 

.0375 

42,829 

12,842,201 

12,713,779 

84. 

19 

35 

17.5 

.4375 

5,562,278 

1  ,142,096 

53 

■29 

4 

2.0 

.0500 

57,105 

13,997,686 

85 

19 

34 

17.0 

.4250 

5,889,526 

1,153,632 

1 ,142,096 

53 

85 

5 

2.5 

.0625 

71 ,381 

15,258,018 

itnimfl 

86 

Ha 

33 

1 6 . 5 

.4125 

6,230,993 

1,153,632 

K£9i 

86 

6 

3.0 

85,657 

16,630,764 

87 

19 

32 

16.0 

.4000 

6,585,782 

■!UEfEH9 

53 

87 

7 

3.5 

.0875 

BIH 

■EUffrlEIEM 

■MMrWfcM 

88 

19 

31 

15.5 

.3875 

1,153,632 

53 

88 

8 

4.0 

.1000 

—min 

HH3EIQI-1 

■cK:»4W.fiLM 

■•TiH 

mm 

30 

15.0 

3750 

iKUHaa 

96,136 

95,175 

mam 

89 

9 

4.5 

.1125 

—rum 

NOTE:  Column  2  is  net  cost  for  depreciation  after  removal  of  1%  salvage  value. 
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FILES  A76SEN1  AND  A76SEN2 
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APPENDIX  H 


SUMMARY  -  SENSITIVITY  ANALYSIS 


FILE 

LINE 

iwya 

NAME 

DATA 

NR 

CUM  $ 

REMARKS 

A76BASE 

Base  data. 

33 

33.2 

635.4 

In-House 

In-House  depreciates 
SOYD  20  years. 

34 

139.5 

1  ,739.9 

Contract 

35 

106.3 

1,104.5 

In-House 

Advantage 

Ratio  In-House/ 

Contract 

24% 

37% 

A76SEN1 

Base  data. 

33 

35.6 

584.4 

In-House 

In-House  depreciates 

40  years  straight-line. 

34 

138.2 

1  ,622.0 

Contract 

35 

102.5 

1,037.6 

In-House 

Advantage 

Ratio  In-House/ 

Contract 

26% 

36% 

A76SEN2 

A76SEN1 

33 

35.6 

584.4 

In-House 

Leased  flatcars 
depreciate  uninflated 

40  years  straight-line. 

34 

89.1 

1  ,094.4 

Contract 

35 

53.5 

510.0 

In-House 

Advantage 

Ratio  In-House/ 

Contract 

40% 

53% 

A76SEN3 

Base  data. 

33 

5.1 

319.5 

In-House 

Mo  inflation. 

34 

6.2 

311.7 

Contract 

35 

1.1 

7.8 

In-House 

Advantage 

in  Period 

Contract 

Advantage 

Ratio  In-House/ 

82% 

103% 

in  Cum 

Contract 

Crossover 
in  1984 
Crossback 

in  1999 
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ANNUAL  IN-HOUSE  COST  AS  A  PERCENT  OF  ANNUAL  CONTRACT  COST 


1 

5 

10 

15 

20 

25 

30 

35 

40 

A76BASE 

36 

82 

106 

67 

48 

38 

31 

27 

24 

A76SEN1 

32 

61 

85 

63 

49 

40 

33 

29 

26 

A76SEN2 

32 

69 

106 

86 

70 

59 

50 

44 

40 

A76SEN3 

36 

104 

170 

120 

_ _ 

99 

90 

87 

85 

82 
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ABOUT  SENSITIVITY  ANALYSIS 


1.  Sensitivity  analysis  measures  the  effects  upon  the  outcome  of  varying 
the  values  of  input  elements.  This  aids  in  identifying  cost  drivers,  helps 
answer  "what  if"  questions  concerning  alternate  resource  mixes,  and 
reduces  uncertainty  when  using  estimated  or  marginally  validated  data. 

The  usual  approach  is  to  vary  the  principal  cost  elements  one  at  a  time 
by  a  percentage,  usually  plus  or  minus  ten  percent,  and  observe  the 
effect  percentagewise  upon  the  outcome.  The  change  in  the  effect  then 
becomes  the  basis  for  subjective  consideration  in  the  decision  process. 

2.  Inspection  of  input  data  in  the  DFRIF  case  indicates  two  probable 
cost  drivers,  acquisition  costs  and  maintenance  costs.  In-house  acquisi¬ 
tion  costs  are  displayed  in  lines  5C  or  5J  of  the  file  data;  in-house  mainte¬ 
nance  in  line  5E.  Contract  acquisition  and  maintenance,  as  well  as  other 
contractor  costs  and  profit  margin,  are  rolled  up  in  line  10.  In-house 
maintenance  costs  are  not  evaluated  in  this  sensitivity  analysis  because  of 
lack  of  estimated  maintenance  costs  for  new  flatcars  and  because  expert 
Opinion  holds  that  state-of-the-art  design  results  in  decreased  maintenance 
costs  as  compared  to  the  old  flatcars.  Other  cost  elements  are  relatively 
so  small  that  even  major  variations  in  their  values  would  not  change  the 
outcome. 

5.  With  one  exception,  file  A76BASE  provides  input  which  is  in  turn 
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processed  by  A760UT  in  accordance  with  Circular  A-76.  As  discussed 
in  Appendix  C,  in-house  assets  are  depreciated  over  20  years  through 
sum-of-the-years  digits;  this  to  place  in-house  depreciation  on  the  same 
or  similar  basis  as  the  private  sector.  Summary  results  are  shown  on 
pages  H-l  and  H-2.  Sensitivity  run  number  one,  identified  as  file 
A76SEN1,  depreciates  government  assets  on  a  straight  line  basis  over  40 
years.  This  results  in  small  changes  which  are  attributable  to  the  dif¬ 
ference  in  undepreciated  asset  values  in  the  two  runs.  As  expected,  there 
is  no  change  in  the  outcome.  In  sensitivity  files  SEN1  and  SEN2,  it  was 
necessary  to  make  entries  in  lines  05J,  20,  and  26  for  lines  05C,  18,  and 
28  respectively  because  18  and  28  receive  their  inputs  via  software  from 
line  05C.  In  line  20,  a  mean  (average)  net  book  value  was  used  in  each  of 
the  18  increments  of  assets.  This  was  done  to  avoid  a  separate  line  entry 
for  each  year  of  the  study.  This  understates  cost  of  capital  in  early  years 
and  overstates  it  in  later  years.  Because  there  is  no  inflation  involved, 
this  has  no  effect  on  the  outcome.  This  use  of  alternate  lines  demonstrates 
the  flexibility  of  the  A76  programs. 

4.  Sensitivity  run  number  two,  file  A76SENZ,  assumes  equal  acquisition 
costs  of  flatcars  to  both  Government  and  contractor,  and  depreciates  the 
leased  flatcars  on  a  straight-line  basis  over  40  years.  This  removes  the 
contractor's  flatcar  assets  from  the  9%  inflation  rate  applied  to  the  contract, 
and  depreciates  those  assets  on  the  same  basis  as  in-house  assets.  As 
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expected,  this  considerably  reduces  contract  costs  and  increases  in-house 
to  contractor  ratios.  The  outoame  is  unchanged  and  the  in-house  advantage 
continues  to  be  very  large. 

5.  .Ratios  at  five  year  intervals  of  annual  in-house  cost  as  a  percent  of 
annual  contract  cost  are  shown  on  page  H-2.  The  high  ratios  between  the 
fifth  and  tenth  year  result  from  withdrawal  of  assets  from  the  DFRIF 
before  the  end  of  their  depreciated  life.  After  that,  the  continuing  downward 
trend  suggests  that  nonidentified  contractor  costs  are  being  inflated,  perhaps 
improperly.  Review  of  DFRIF  data  entries  on  pages  E-4  and  E-5,  however, 
shows  nearly  equal  inflation  applied  to  in-house  and  to  contractor  cost  ele¬ 
ments.  It  may  be  that  contractor  pricing  includes  unknown  non -quantitative 
considerations  or  non-cash  elements.  A  large  industrial  chemical  corpora¬ 
tion  using  railway  tank  cars  observes  that  their  calculations  always  favor 
buy  over  lease  options.  To  compensate  for  non-quantitative  costs  and 
risks  of  ownership,  this  corporation  requires  a  net  purchasing  advantage 
of  five  to  ten  percent.  Non-quantitative,  non-cash  elements  may  include: 

a.  Risk  management,  particularly  during  periods  of  inflation, 

/ 

b.  Railcar  availability, 

c.  Ownership  downtime  versus  credit  against  lease  payments, 

d.  Risk  of  major  repair,  due  to  engineering  defect  or  to  Government 
mandated  or  state-of-the-art  design  changes, 

e.  Liabilities  associated  with  an  accident, 
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f.  Costs  of  management  time,  or 

g.  Risk  of  inaccurate  cost  projections. 

6.  Sensitivity  run  number  three,  file  A76SEN3,  shows  effects  upon  analy¬ 
sis  of  -  zero  inflation.  The  fortieth  year  in-house  cost  is  then  82%  of 
contract  cost,  still  below  a  net  purchasing  advantage  of  five  to  ten  percent 
noted  in  the  previous  paragraph.  The  fortieth  year  cumulative  contract 
advantage  of  3%  may  be  sufficient  to  convert  from  in-house  (buy)  to  contract 
(lease)  action.  This  apparent  advantage  may  be  caused  by  cost  of  capital 
on  disposal  losses.  There  is  a  fifth  year  crossover  from  in-house  to 
contract,  and  a  twentieth  year  crossback  from  contract  to  in-house.  This 
is  caused  by  depreciation  losses  on  old  equipment  withdrawn  from  service, 
higher  dollar  depreciation  on  new  equipment  being  placed  ir  service,  and 
cost  of  capital  on  disposal  losses. 


APPENDIX  I 


Position 

1-2 

3 

4-16 

17-18 

4-18 

53-56 

57-60 

61-64 

65-68 

69-72 


73-74 


75-76 


77-78 

79 


RECORD  DEFINITION 


Name 

LINE  A-76  Study  line  number 

SUBL  A-76  Study  sub-line  letter 

$  Dollars 

t  Cents 

DC  Dollar  and  Cents  Costs  or  Acquisition  Value 

INFL  Inflation  Factor  (4  decimal  fraction  places) 

MARK  Mark-Up  Factor  (4  decimal  fraction  places) 

RATE  Rate  Factor  (4  decimal  fraction  places) 

Reserved  for  future  expansion 

SALV  Salvage  Value  Factor  (4  decimal  fraction  places), 

expressed  as  a  fractional  portion  of  DC  (applies 
LINE/ SUBL  05C  only) 

BY  Begin  Year  (two  place  integer) 

For  LINE/SUBL  05C  (depreciation)  - 
Last  two  digits  of  the  year  in  which  the  asset(s) 
were  or  will  be  placed  in  service 
For  other  LINE/SUBL(s)  - 
Last  two  digits  of  the  year  in  which  the  data 
becomes  valid  for  the  A-76  Study  (normally 
the  first  year  of  the  A-76  Study). 

EY  End  Year  (two  place  integer) 

For  LINE/SUBL  05C  (depreciation)  - 
Last  two  digits  of  the  last  whole  year  in 
which  the  assets  will  remain  in  service. 

For  other  LINE/SUBL(s)  - 
Last  two  digits  of  the  year  in  which  the  data 
remains  valid  for  the  A-76  Study  (normally  the 
last  year  of  the  A-76  Study). 

AL  Asset  Life  (applies  LINE/SUBL  05C  only) 

Reserved  for  future  expansion 


1-1 


»SIJ3;  «0385  '*  bHlS.LSO}  LP 
*S13i!  «U3d5  *  dRlS.LSOj  LP 
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FRI.  map  i o,  1931,  13:Sl  PM 
PRI,  MAP  30,  1981,  13181  PM 
FRI,  MAR  30,  1991,  13181  PM 


A76IN 

10  R£M  PREPARED  at  rt.  H.  BHISENOINE,  AUTUVON  687-3394/3568,  F OR  JOt 
30  REM  DODGE,  LUG  STUDIES  OFFICE,  ARMY  LOGISTICS  MANAGEMENT  CENTER, 

30  REM  FT  LEE,  VA  33801 
40  DIM  8i  (40]  ,CS  (8 J 
50  PRINT  *10 

60  dS=*BulLO  XXXXXXXX;R£C=-80,  ,F,  ASCII* 

70  INPUT  "ENTER  FILE  NAME  NOw  -  »,C* 

80  as  (7  ;aj  =cs 

90  SYSTEM  X ,  d  S 

100  IF  X<>0  ANU  NOT  XS379  THEN  00 

110  PRINT  "dUILO  FAILED.  ERROR  NUMBER  s  "JX 

130  STOP 

130  OOENO 

140  FILES  * 

150  ASSIGN  CS, 1 , X 
160  IF  XOQ  THEN  00 

170  PRINT  "ASSIGNMENT  STATEMENT  FAILED,  ERROR  NUP.dER  =  ">X 

180  STOP 

190  OUENO 

300  DIM  AS  (79] 

310  01M  U 1  $  (80] 

330  OIM  OS  (33, 50] 

330  OIM  QS  [50] 

340  OIM  R8S  (3] 

350  OIM  US  153 

360  OIM  UOS  (80]  ,  U1 S  (801 

370  IF  TYP(1)=5  THEN  330 

380  RESTURE  41 

390  LINPUT  4 1 J  AS 

300  ON  END  41  THEN  330 

310  GOTO  390 

330  UOS=6 

•  1  3  3  4  5  6  6 

7 

330  01S=8 

■  13345678901354567890133456789013345678901334567890133456/89013346 
567890133456789" 

340  PHINT  U0S1U1S 
350  U0**6 

«  1  3  3  4  5  6  6 

7  • 

360  01$  =  & 

"  13345678901334567890133456789013345678901334568789013345678901336 
4567890133456789" 

370  FUR  1*1  TO  1000 
380  PRINT  CHRSU35J  j 
390  F=0,F1=0,F3=0,F3=0 

400  UNPUT  AS 
410  U0S=6 

«  1  3  3  4  5  6  6 

7  " 

430  U1 S=& 

■  13345678901334567890133456769013345678901334567890133456789013346 
567890133456789* 

430  IF  LEN (A*J  <79  THEN  00 
440  AS*AS«CHRS(33J 

450  GOTO  450 

460  OOE.NO 

470  HEM  PROVIDES  79-COL  HEADERS  FOR  OPERATOR'S  CONVENIENCE 
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480  IF  ASll»ll="Y"  THEN  00 
490  U0S=* 

•  *  1  2  3  4  5  6  4 

7  * 

500  U1S  =  S 

O  •  12345678901 £34567 690 123456789012345678901 23456 76901 £34567690 1234* 

567890123456789" 

510  PRINT  u0»;U1S; 

O  520  GOTO  360 

530  OOENO 

540  REM  6REAK-UUT  PROCEOUkE 
Q  550  IF  ASll/ll="X"  THEN  00 

5t>0  1  =  1000 

570  GOTU  2690 

©  580  OOt  NO 

590  REM  REPLACE*  .IMPROPERLY  ENTERED  DATA  WITH  ASCII  CmANACTER  #126 
600  JLF  WUM<A^{1,1!  J<46  OR  NUM  C  AS  tl  ,  1  1  1  >5 1  THEN  U 1 S  12 , 2  J  =CHR»  C 1 26) 
o  610  IF  NU<nAf£fc-&4)<4M  OR  NUM(AS  12,211*5/  ThEN  01 S  (3 *  31 =CHR* 1 1 26 i 
620  IF  AS  ( 1 , 21  =*06'*  THEN  OO 
630  PRINT  6 

j  "THIS  LINE  NOT  ACCEPTED!  INFLATION  IS  INCLUDED  IN  INDIVIDUAL  LINES 

S* 

640  PRINT  U0S;U1S; 

Q  650  GOTO  380 

660  OOEnO 

670  IF  ASll,21="18*  OR  ASll,21="2B"  THEN  DO 

•  660  PRINT  S 

■THIS  LINE  NOT  ACCEPTED!  DATA  FOR  A-76  LINES  #18  AND  #28  ARE  DERIS 
VED  FROM  LINE  #05C «  UHnS  UHtAD  DEPRECIATION* 

^  690  PRINT  UOsiUlSi 

700  GOTO  380 

710  DUENU 

•  720  IF  AS  11 , 21  ="09"  OR  A*ll,21="17"  OR  ASU,21="22"  OK  AS  11 , 21 ="30"1 

THEN  1930 

730  IF  AS  11  >  2!  >*32"  ANO  AS  11 ,21  <"36"  THEN  1930 

•  740  F0=NUM ( AS  13(31 1 

750  IF  AS  (1 1 21 ="02"  THEN  UO 

760  IF  F0>64  ANO  FO«76  THEN  790 

•  770  U1S 14,41 =CHH*(126) 

780  GOTO  1320 

790  OOENO 

•  800  IF  AS  11 1 21 ="04"  OR  ASll,21="Q6"  UR  ASll,21=*07"  OH  AS  11 , 21 = "08 ■ 5 

THEN  DO 

810  IF  F 0=32  THEN  840 

•  820  U1S14,4J  =CHR*U261 

830  GOTO  1320 

840  DOENU  i_ 

•  850  IF  AS  ( 1 • 21 =" 1 U "  OR  AS(1>2!="12*  THEN  00 

660  IF  F0=32  THEN  890  r 

870  UlS14,4l=LHKSU26l 

•  860  GOTO  1320 

690  OOENO 

900  IF  ASll,21="ll"  OR  AS  U  ,  21  ="  13"  UR  Asll,21="14"  OR  AS  11 , 21 =" 15"S 
0  OR  Al  ll » 21  ="32 "  THEN  DO 

910  IF  F0  =  65  UR  F  u  =  66  THEN  940 

920  U1S14,41=CHKS(126! 

•  930  GOTU  1320 

940  OOENO 

950  IF  ASll,21>"25"  AND  A5lt,21«"30"  THEN  DO 
A  960  IF  F0=32  THtN  990 
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U1S(4,41=CHRS(126) 

GOTO  1320 
DQtNO 

IF  A*(l,2i="03"  0 H  ASH, 21  =  "  16"  OR  AS(1,2J=*23"  T HEN  DO 
IF  F0  =  32  THtN  1040 
01*14,41  =CHKS1126) 

GOTO  1320 
OOENO 

IF  AS ll,21>»17"  ANO  AS  [1 , 2)  <"22"  THEN  00 
IF  F0=32  THEN  1090 
U1S 14,4] =CHK*(12b) 

GOTO  1320 
DoENO 

IF  AS(1,21="24»  THEN  00 

IF  FO<b«  ANO  F 0>b4  THEN  1140 
01* (4, 4] =CHKS (126) 

GOTO  1320 
OOtNO 

IF  AS(1,21="25"  OK  AStl,^li»JJ»  THtN  00 
IF  F0<b9  ANO  F0>b4  THEN  1190 
01S (4,41  =CHKS (12b) 

GOTO  1320 
OOENO 

IF  AS(1,21="01"  THEN  00 

IF  F 0< 7 1  ANO  F0*64  InEN  1240 
01*14, 4J=CHKS(126) 

GOTO  1320 
OOENO 

IF  AS  (1 ,2J  =  "05*  (HEN  00 

IF  F 0<o3  ANO  F 0*64  THEN  1280 
01*  (4, <4J  =CHH*(126) 

OOENO 

CONVERT  AS  173, 7 41  TO  F0.A220 
CONVERT  A*  (75,  761  TO  F0,3250 

IF  ASC1,3)="05C"  THEN  CONVERT  A*(77,76]  TO  F0.3280 
FOR  11=53  TO  79 

IF  A*(ll, I1J=CHRS( 32)  THEN  AS  ( 1 1 , 1 1) =CHRS (48) 

IF  ASCII,  IU»CHK*(47)  ANO  AS  (1 1  ,  1 1 )  <CHKS  (58)  THEN  1370 
U1S(11+1,I1+1)=ChR$(126) 

F2=l 
NEXT  II 

FOR  11=4  TO  18 

IF  A*  (II, Ill =CHRS(32)  ANO  F<>1  THEN  1440 
F  =  1 

IF  A*  (II, 111 >CHRS(47)  ANO  AS  (1 1 , 1 1 ) <CHR$ (58)  THEN  1440 
Ul*Cll+l,Il+l)=CHK*(12b) 

F3=  1 
NEXT  l l 

IF  F3=l  THEN  1490 

IF  AS(18«18)="  ■  THEN  A* [ 1 8, l bl = " 0 " 

CONVERT  A*  14, 181  TO  FI 

IF  F  1  =  0  THtN  01*  (19, 19] =CHR*(12b) 

FOR  11=2  TO  19 

IF  01*  (Hi  ID  <>CHR*(12b)  THEN  1520 
F2=l 
NEXT  II 

FOR  11=54  TO  80 

IF  01*111, Ill<>CHR*(12b)  THEN  1560 
F2  =  l 
NEXT  II 
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1570  IF  F2 si  THEN  00 
1500  PRINT  UOsj ulS; 

1590  60(0  360 

1600  OUENO 

1610  IF  AS  11  ,2)  =  "25"  OH  AS11/3)=*11A*  OK  ASU,31="13A"  OR  ASll, 31=4 
* 1 6 A  *  UK  AS  [  1 , 3)  =  "  1 5A  "  THEN  UO 
1620  CONVERT  A»l73,74J  TO  C 

1630  CONVERT  A«  175,  76)  To  Cl 

1640  IF  C>C1  THEN  C1=C1+100 

1650  IF  Cl»C"39  THEN  00 

1660  Ui*  1/4, 7«J  =CHR*( 126) , UlS  [75, 7  5)  =CHKS ( 126) , UlS [76, 76) =CHR*(4 

1261,01*177,77) =CHK*C12b) 

1670  print  uosjuis; 

1660  SOTO  360 

1690  OOtHU 

1700  Cl=£4-tl 

1710  ) 

1720  Ci=INT{Cl*.5) 

1730  CONVERT  Cl  TO  61* 

1740  IF  Cl=l0000  THEN  81S="0Q00" 

1750  IF  LEn (6 1 *) <4  THEN  00 

1760  B1S="0*+B1S 

1770  GOTO  1750 

1780  OUENO 

1790  AS  [61 , 64J  =6 IS 

1800  OUENO 

1610  IF  AS  (1 , 31  =  "05C  "  THEN  00 
1820  CONVERT  A*  [73,  74)  70  C 

1830  CONVERT  AS[75,761  TO  Cl 

1640  CONVERT  AS(77,7d)  7u  C2 

1650  IF  C1<C  THEN  C1=U1MU0 

I860  IF  C2<C1M-C  THEN  00 

1870  PRINT  & 

"TERM  OF  ASSET  SERVICE  IS  LONGER  THAT  ASSET  DEPRECIABLE  LIFE,  RE-4 

00" 

1660  PRINT  UOSSUIS) 

1690  GOTO  360 

1900  DOENO 

1910  OUENO 
1920  GOTO  I960 

1930  PRINT  "NO  INPUT  ALLUnEO  ON  A  SUB-TOTAL  LINE)  HE-DO" 

1940  PRINT  UOSjUlS? 

1950  GUI  0  380 

1960  IF  AS(1,31="01A"  THEN  AS[19, 521=6 

"DIR  MAT  GSA  WHOLESALE  " 

1970  IF  AS[1,3)="01B"  THEN  AS[19, 521=4 
"OIK  MAT  GSA  RETAIL  * 

1960  IF  ASil,3)="01C"  THEN  AS(19, 521=6 
•OIR  MAT  GSA  NuNSTURES  » 

1990  IF  AS  [1 , 31 ="010"  THEN  AS[19, 521=4 
"OIK  MAT  OLA  nHULESALE  STOCK  FUNO  * 

2000  IF  AS(1,31="01e"  THEN  A»H9,52)=s 
"OIK  MAT  OLA  01RECT  STOCK  FOND  " 

2010  IF  A4(1,31="U1F"  THEN  A*(19, 521=4 
•OIR  MAT  OTHER  " 

2020  IF  AS  (1 , 31 ="02A"  THEN  AS119, 521=6 
•MAT  UHEAD  LA60R  * 

2030  IF  .AS  (1,31 ="026"  THEn  AS[19, 521=6 

"MAI  UHEAO  LABOR  FRINGE  6EN  " 

2040  IF  AS  (1 , 31 ="Q2C"  THEN  AS[19, 521=6 


•MAT  OHEAO  TRAVEL  • 

2050  IF  AS(1,31="020"  THEN  ASU9, 521=4 
•MAT  OHEAO  uPtRATlNG  SUPPLIES  * 

2060  IF  AS(1,31=“02£"  THEM  AS119, 521=6 
•MAT  OMEAO  MAINT  • 

2070  IF  AS(1,3J="02F"  THEM  ASUS, 521=6 
"MAT  UHEAO  OFFICE  SUPPLIES  " 

2060  IF  AS  11 1  3)  ="02G"  THEM  ASUS, 521=6 
■MAT  OHEAO  UTILITIES  * 

2090  IF  AS  U  f  31 =n02H"  THtN  ASlJ9,52J=4 
■MAT  UHEAO  DEPRECIATION  " 

2100  IF  ASU,31="U21"  THEN  AS  (19  >  52]  =& 
•MAT  UHtAU  KENT  ■ 

2110  IF  AS(1.3J="02J"  THEN  ASUS, 521=4 
"MAT  UHEAO  ALLOCATED  • 

2120  IF  AS  U  f  31 = "02K ■  THEN  ASU9, 521=4 
•MAT  OHEAU  UTHtR  * 

2130  IF  AS(1,3J="03  •  THEN  AS119, 521=4 
"DIRECT  L ABUR ,  CIVILIAN  • 

2140  IF  AS  (1 , 21  ="04"  THtN  ASUS, 521=4 
■FRINGE  dcN  DIR  LABUH  " 

2150  IF  AS  (1 1 31 =*05A"  THEN  ASUS, 521=6 
"OPNS  OHtAD  INDIRECT  LABOR  CIV  * 

2160  IF  AS  (1 , 31 =*05o"  THEN  A»US, 521=6 
■OPNS  OHtAO  INOIRECT  MATL/SUPPLltS  " 
2170  IF  ASU,31="05C"  THEN  ASU9, 521=4 
"OPNS  OHtAO  OtPRtCIATIUM  " 

2160  IF  AS  (1  j  31  =*050  "  I  HEN  ASU9, 521=6 
■OPNS  OHtAO  KlnT  " 

2190  IF  AS  11 • 31 ="05E"  THEN  AS(19,521=i 
"OPNS  HEAD  MAINT  4  REPAIR  ■ 

2200  IF  ASllf  31  =  "05F"  THtN  ASU9, 521=4 

■opns  oheao  spt  costs  ■ 

2210  IF  AS  U ,  31  ="p5G"  THEN  ASUS, 521=4 
■OPNS  OHEAU  UTILITIES  ■ 

2220  IF  AS(l,3J="05H"  THEN  A>(19,52)=6 

■opns  untAu  insurance  " 

2230  IF  AS  U  » 31 ="051"  THEN  AS119, 521=4 
•OPNS  OHEAO  OTIME  4  UTH  PREM  PAY  " 
2240  IF  AS  II f  31 = "05 J "  THtN  AS(19, 521=4 
■OPNS  OHtAO  OTHER  COSTS  " 

2250  IF  AS  (1  f  31  ="05K"  THEN  ASU9, 521=6 
"INC  LAB6BEN  MILf  PCS  COSTS,  COMM  " 
2260  IF  AS  11,51  ="VSL"  THtN  ASU9, 521=4 
"INO  LAB66EN  MIL,  PCS  COSTS,  ENL  " 
2270  IF  AS  (1 , 31  ="05M"  THtN  ASUS,521-J6 
"INO  LA646EN  MILfOPER  APPS  SPTfCOMM" 
2260  IF  AS  (l ,  3]  ="05N"  THtN  ASU9,52l=4 
"INO  LA64BEN  MILfOPER  APPS  SPTfENL  " 
2290  IF  ASUf31®"050"  THtN  ASUS, 521=4 
"INO  LAB66EN  MIL,  RETIREMENT,  COMM  " 
2300  IF  A* II , 31 ="05P"  TRtN  ASI19, 521=6 
■INO  LAB46EN  MIL,  RE T lRtMtNT ,  ENL  ■ 
2310  IF  AS  (1 , 31 ="05U"  THEN  AS119, 521=6 
■OPNS  OHEAO  COMMUNICATIONS  " 

2320  IF  ASH,  31  =  "05R"  THtN  ASII9, 521=6 
"OPNS  OHtAO  MIL  BASE  PAY  6  ALLOR  " 
2330  IF  AS  J1 ,21 ="06*  THEN  ASUS, 521=4 
"OTH  OIR  COSTS  " 

2340  IF  ASU,  21  ="07"  THEN  *1(19,  521=4 
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"G4A  EXP  " 

2350  IF  A*ll,21="10"  THEN  ASC19, 521=6 
"CONTRACT  PRICE  * 

2300  IF  ASC1.J1="UA"  THEN  ASU9, 521=4 
"TRANSPORTATION  NONRECUH  " 

2370  IF  AS  lit 3J =* 1 IB"  THEN  AS119, 521=6 
"TRANS  RECUR  * 

2300  IF  ASll,21=*12"  THEN  ASC19, 521=6 
"CONTRACT  AOMIN  " 

2390  IF  ASll»3J="13A"  THEN  AS119, 521=6 
■GOV  FUKN  PRUP  NONRECUK  " 

2400  IF  ASCI,  31  =  "1 30  "  Then  ASC19, 521=4 
"GOV  FUKN  PRUP  RECUR  " 

2410  IF  AiU,3J=*l4A"  f hen  ASU9, 521=4 

•standby  maint  nonrecuh  • 

2420  IF  ASll,31="l4d“  THEN  AS  II 9  >521=4 
"STAN08Y  MAINT  RECUR  ■ 

2430  IF  AS(l,3J="laA"  T-hen  4CSU9,52J=4 
"OTH  COSTS  nOnkeC  " 

2440  IF  AS  i  1 r  31 ="150"  THEN  AS119, 521=4 
■OTHER  COSTS  RECUR  • 

2450  IF  ASll,21="16"  THEN  ASC19, 521=4 
■GEN  4  AOMIN  EXP  " 

24U0  IF  ASC1,21="18"  THEN  AS119, 521=4 
■COST  CAP, NET  BK  VAL  ASSETS  RETAINO" 
2470  IF  ASll,21=*19"  THEN  ASU9, 521=4 
"ONE  TIME  New  START  CU5TS  * 

2480  IF  ASU,21=*20"  THEN  ASCI9, 521=6 
■OTHER  COSTS  A 00  " 

2490  IF  AS  11 ,21  ="2i"  THEN  ASU9, 521=6 
"OTHER  COSTS  OEOUCT  ~" 

2500  IF  AS  (1 ,31 ="25C"  THEN  ASC19, 521=6 
■ONE  TIME  CONV  COSTS  OTHER  * 

2510  IF  AS { 1 , 2] = "26 "  THEN  ASI19, 521=6 
■OTHER  COSTS  AOD  " 

2520  IF  AS  Cl ,  2]  ="29"  THEN  ASU9, 521=4 
■OTHER  COSTS  OEOUCT  * 

2530  IF  AS1I,21="23"  THEN  AS119, 521=4 
"COST  OF  CAP  ON  GFF  " 

2540  IF  ASll,31="24A"  THEN  ASC19, 521=6 
"UTIL  OF  GUV  CAP  STANOBY  COSTS  " 

2550  IF  AS  (1,31 ="24B"  THEN  AS119, 521=6 
"UTIL  GOV  CAP  OISPOSTN  NET  PROCEEDS" 
2560  IF  AS  (1 , 31  ="24C"  THEN  ASU9, 521=4 
■UTIL  GOV  CAP  UNDEKUT ILI ZATN  CuSTS  " 
2570  IF  AS  (1 , 31  ="2BA"  THEN  ASC19, 521=4 
"ONE  7 IME  CUNV  COSTS  MATERIAL  * 

2580  IF  AS  (1 , 31  ="25S  "  THEN  ASU9, 521=4 
■ONE  TIME  CONV  COSTS  LABOR  " 

2590  IF  ASII,31="250"  THEN  ASU9, 521=4 
"ONE  TIME  CUNV  COSTS  G4A  " 

2600  IF  AS  (1 ,21  ="27*  THEN  ASU9, 521=4 
"FEO  INCOME  TAXES  OEOUCT  " 

2610  IF  AS  tl, 21  =  *28"  THEN  AX19, 521=6 
■NEW  PRUCEEOS  U1SP  UF  ASSETS  OEOUCT" 
2620  IF  AS  11 , 3]  =’31  A"  THEN  ASU9, 521=6 
"NEW  START  01R  LABOR  * 

2630  IF  AS  (1 , 31 ="318"  THEN  A*(19, 521=6 
"NEW  START  INUIR  LABOR  " 

2640  IF  ASU,31="31L"  THEN  ASU9, 521=4 


"NEw  START  COST  OF  CAP  * 

2650  IF  ASll.41»"310"  THEN  A*(l9,52]=* 

"NEW  START  OtPRECIA l ION  * 

2660  IF  As  11.3J  ="32A"  THEN  AS  ( 19 ,  52)  =  * 

"conversion  coat  of  dir  labur  * 

2670  IF  AS  11,3]  =«32d"  THEN  ASU9,52j=6 
"conversion  cost  of  inoir  labor  * 

2680  PRINT  41;AS 
2690  NEXT  1 
2700  RESTORE  61 

2710  INPUT  "IS  A  FILE  PHINT-QUT  NEEDED  CY/N )?  ",L8S 
2720  if  ies="N"  then  ou 
2730  Z2  =  -l 

2740  PRINT  '10 

2750  PRiNT  *  END  OF  PROGRAM  ";CHRS134);» 

•AlbiUniCMZ*±S4) 

27  68  PRINT  *1JI«  'U«  'J8 
2770  ENO 

2780  DUEnO 

2790  IF  Lbi<>"Y"  THEN  2710 

2600  PRINT 

2610  PRINT  U0S;U1$ 

2820  FUR  1=1  TU  1000 

2830  LlNPuT  61 ; AS 

2640  UN  ENO  41  THEN  2860 

2650  IF  ASll,U="  *  THEN  2680 

2860  PRINT  USING  267 0 5  AS  (1 , 64) , I , AS  169 , 79J 

2570  Image  "  *,64A,40,Ua 

2880  NEXT  I 

2690  60  =  kECU) 

2900  PRINT  "RECUrU  NUMBER  TO  OELETE  (USE  ■ ; CHRS  134) > "0" ; CHRS 134) ; & 

*  TU  EXIT  FROM  OELETIUN  ROUTINE)*; 

2910  INPUT  US 

2920  CONVERT  US  TU  12.2990 
2930  IF  I2>B0-1  THEN  3080 
2940  IF  I2<0  THEN  00 

2950  PRINT  "BAU  LINE  NUMBER  ENTERED!  RE-DO" 

2960  RESTORE  41 

2970  OUENO 
2980  GOTO  3010 

2990  PRINT  "NUN-NUMERIC  ENTRY!  RE-DO" 

3000  GUTU  2900 

3010  IF  12=0  THEN  3140 

3020  RESTORE  41 

3030  FOR  1=1  TO  12-1 

3040  L1NPUT  41 ; AS 

3050  UN  ENU  61  THEN  3080 

3060  NEXT  I 

3070  GUTO  3110 

3060  PRINT  "LINE  NUMBER  IS  TOO  HIGH!  RE-DO" 

3090  RESTORE  41 
3100  GOTU  2900 
3110  PRINT  41;*  " 

3120  PH1NT  "line  number  ";I2;"HAS  now  been  deleted" 

3130  GUTU  2900 

3140  INPUT  "NEED  A  NEW  PRINTOUT  FUR  EDITING  (Y/N)?  ",L8* 

4150  RESTORE  41 

3160  IF  L64=  * Y "  THEN  2810 

4170  IF  Lds«"N"  THEN  3140 

4180  INPUT  "WANT  TU  MARE  A00ITIUNS  TO  THE  FILE  (Y/N)?  ",L6S 
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3190  IF  U6#="Y"  THEN  280 

3200  IF  L6*<»"N*  THtN  3180 

3210  GOTO  2740 

3220  Ul$[74.74]=CHK*U2t>J 

3230  UlSl75,75l=CH«S(12b) 

3240  GOTO  1300 

3250  U1S [7b, 761 =CMrtS(12bJ 

3280  Ul*  17  7  ,  7  7  1  SCHKSU28J 

3270  GOTO  1310 

3280  U1S  178, 781  =CHN»(12b> 

3290  UlSl79,791=CnKSll283 

3300  GOTO  1320 


PROGRAM  VARIABLE  DEFINITIONS  A760UT 


SSY 

YRS 

R 

R1 

13 

14 

15 
R2 

M2  Array 

Y6 


Study  Start  Year  (last  two  digits)  [Operator  Input] 
Number  of  years  to  be  studied  [Operator  Input] 
Depreciation  (straight  line) 

Line  28  Value 

AL  value,  but  not  to  exceed  20 
Sum-of-years-digits 
EY  value,  but  not  to  exceed  20 
Interim  value  used  by  program 

An  array  containing  results  of  computations  by  year, 
by  A-76  Study  line  number  (e.g.,  MZ  (year,  line 
number) 

Last  year  to  be  printed  in  the  A-76  Study 


These  definitions,  when  applied  to  the  structured  systems  analysis 
flowchart  which  follows,  provide  a  macro  description  which  shows 
hierarchical  organization/program  functions,  describe  relations  of 
these  functions,  and  identify  data  flow  interfaces. 
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AD-A105  996  LOGISTICS  STUDIES  OFFICE  (ALMC)  FORT  LEE  VA 

BUY  OR  LEASE  COST  MODEL  -  SELECTED  RAILWAY  EQUIPMENT. (U) 
APR  81  J  A  DODGE*  N  H  BRISENDINE 

UNCLASSIFIED 
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FLOWCHART  IN  STRUCTURED  SYSTEMS  ANALYSIS  FORMAT 


A760UT 


■For  Record  #1  to  Record  #1000 
Get  next  record 

If  end-of-file  occurs  before  Record  #1000,  then  go  to  summary  routine 

If  the  next  record  is  blank,  go  to  next  record 

If  Rate  =  0,  then  Rate  =  1 

If  EY  <  BY,  then  new  EY  =  Old  EY  +  100 

New  BY  =  Old  BY  -  SSY  +  1 

New  EY  =  Old  EY  -  SSY  +  1 

[Remark  -  Preceding  3  lines  convert  old  BY  and  EY,  based  on  calendar 
year  data,  to  a  numerical  relationship  appropriate  to  a  study  beginning 
in  Year  1"  while  variable  18  retains  old  BY  value] 

-  For  Year  1  to  YRS 

[Remark  -  YRS  is  number  of  years  in  study] 

If  Year  <  BY  or  Year  >  EY,  go  to  next  year 

[Remark  -  eliminates  computations  for  lines  which  are  not  applicable 
in  certain  years;  applies  particularly  to  LINE/SUBL(s)  05C] 

Initialize  14,  13,  R1 ,  R,  R2  to  Zero 
rlf  LINE/SUBL  =  05C,  then  DO 

If  old  BY  >  1,  then  new  BY  =  1 

[Remark  -  necessary  for  inflation  indexing] 

R  =  (PC  -  DC  X  SALV)  Kit  INFL1(YR$  “  BY) 

AL 

rlf  Year  =  EY,  then  DO 

New  R  =  Old  R  X  (AL  +  BY  -  Year) 

1-End  of  IF-D0 
13  «  AL 

If  AL  >  20,  then  13  =  20 

[Remark  -  maximum  of  20  years  for  use  of  sum-of-years-digits  in 
Line  28  of  study] 

If  Flag  =  1,  then  skip  following  two  lines 
15  =  EY 

If  EY  >  20,  then  15  =  20 
15  =  15  -  1 

[For  Year.|  =  1  to  13 

New  14  =  Old  14  +  Year 
Next  Year1 


[Remark  -  14  becomes  sum-of-years-digits] 

rFor  Year2  »  1  to  15 

New  R1  =  Old  R1  +  (DC  -  DC  X  SALV)  X  Year 
'  M 


•-Next  Year2 

New  R1  *  Old  R1  +  DC  X  SALV 
New  R1  *  Old  R1  -  DC  X  RATE 
[Remark  -  Rate  =  disposal  cost  factor] 

R2  *  (DC  -  DC  X  SALV)  X  (AL  +  SY  -  Year  - 

- nf - 


0 


n 


(  B  )  New  R2  =  Old  R2  +  DC  X  SALV 

V  New  R1  =  (Old  R1  -  R2)  X  10% 

.  New  R2  =  Old  R2  X  10%  nu. 

)  New  R1  =  Old  R1  X  (1  +  INFL)(Year  "  BY' 

'  New  M2  (Year,  18)  =  Old  M2  (Year,  18)  +  R2 

New  M2  (Year,  28)  =  Old  M2  (Year,  28)  +  R1 
Flag  =  1 

Skip  next  two  lines 
lEND  OF  IF-DO 

R  =  DC  X  (1  +  MARK)  X  RATE  X  (1  +  INFL)(Year  "  ^ 
rFor  line  numbers  *  1  to  32 

If  line  number  =  LINE,  then  old  M2  (Year,  Line  No.)  =  new 
M2  (Year,  Line  No.)  +  R 
l-Next  Line  Number 
■Next  Year 
ext  Record 

[Remark  -  Summary  Routine  follows] 

For  Year  =  1  to  Last  Year  of  Printout 
For  Line  Number  =  1  to  7 

New  M2(Year,  9)  =  Old  M2  (Year,  9)  +  M2  (Year,  Line  Number) 

Next  Line  Number 
Next  Year 

[Remark  -  Repeated  to  complete  other  subtotal  lines  in  the  A-76  Study] 
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■  SI  33:  aU10«  » 

■S133:  SUA64  • 
■Sliii  soie4  * 


BRlb.LSUl  LP 
BHJS.LSOf  LP 
bNis.LSU:  lh 


FRI, 

HAH 

20, 

1981, 

12> 

51 

PM 

FH1, 

MAH 

20, 

1961, 

12: 

51 

PM 

FRI, 

MAH 

20, 

1961, 

12: 

51 

PM 

A76UUT 

10  HEM  PREPARED  or  tt.  H.  BWISENDINE,  AUTOVUN  68 7 -32o4/ 3568 ,  FUH  JOE 
20  HEM  OOODc i  LUG  STUDIES  OFFICE,  AHMY  LOGISTICS  MANAGEMENT  CENTtK, 
30  HEM  FT  Ltc,  V A  £3801 
40  UIM  ob  140 J  »Ci  lej 

SO  SS="BUILU  xxxxxxxxjRECs-aO,,F, ASCII" 

60  PRINT  '10 

70  INPUT  "ENTER  FILE  NAME  NOR  -  ",CS 
80  BS  17  }  8J  =CS 
90  SYSTEM  X,BS 

100  IF  X«>0  AND  NOT  X=£79  THEN  DU 

110  PHINT  "BUILD  FA1LE0.  EHKOR  NUMBER  s  >|X 

1EQ  STUP 

130  DUEND 

140  Fii.ES  » 

ISO  ASSIGN  CS.l.X 
1 60  IT  *<*V  THEM  UU 

170  PHINT  " ASS IUN1-EMT M£NT  FAILED. 

180  STUP 


ERROR  NUMBER  =  "jx 


190  OUt NO 
200  LDNli  MC3£,4J 
210  LUND  Ml  HOI 
220  LUND  M2  140,321 
230  LUND  M4  15J 
240  LOND  MS  IS] 

2S0  LONG  M61SJ 
260  LUND  M7CS1 
270  LUNG  K 
2 80  LUND  HI 
290  LUNG  R2 
300  LUNG  Y6 
310  LUNG  Y5 
320  MAT  M=ZEH 
330  MAT  M1  =  ZER 
340  MAT  M2=ZEH 
350  MAT  M4SZEH 
360  MAT  M5=ZEK 
370  MAT  MbsZEH 
380  MAT  M7sZeK 
390  OIM  AS  180] 

400  OIM  BlblBOJ 
410  OIM  US (32, SO] 

420  OIM  US1S0J 
430  UIM  R6S121 
440  OIM  US  (31 

4S0  F3=0,FsO,P=l,R=0,Rl=U,K2=0, V7»0 
460  Z2=-l 

470  INPUT  "HOn  MANY  YEARS  ARE  TO  BE  STUDIED?  ",Y5 

480  IF  YS<0  THEN  DU 

490  V7  =  l 

500  DUTO  470 

510  OUEND 

520  IF  Y5»40  THEN  OU 
530  PHINT  4 

"COMPUTER  HAS  BEEN  CONFIGURED  TO  DO  NUT  MURE  THAN  40  YEARS." 
540  PHINT  "THEREFORE,  YEARS  TO  BE  STUD1E0  EUUALS  40." 

550  PRINT  "IF  UNSATISFACTORY,  SEE  YOUR  PROGRAMMER." 

560  Y5B40 

570  OUEND 
580  Y6SY5 


V 

vi 
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590  INPUT  "STARTING  WlTrt  i»HICh  TEAK?  ",A* 

600  IF  LEN[AS)<4  THEN  00 
610  AS="0"*AS 

620  GUTO  boO 
630  OOENU 

640  CUNVEHT  AS  [3,4]  TO  Y7»32bQ 
650  ASs"" 

660  US[1]=AS13,4J 

670  CONVENT  77*5  TO  US C2] 

660  IF  Y6/5-INT(Yb/5)<>0  THEN  UO 

600  76=Y6*1 

700  GUTU  680 

710  DOEHU 

720  REM 

730  PRINT  "ST ANQ8Y . NOB  COMPUTING....* 

740  HEStURE  «1 

750  FOR  1=1  TO  1000 

760  LINPUT  41 ; AS 

770  ON  ENO  «1  THEN  1530 

760  IF  AS  (1 , 1J  s"  "  f  HEN  760 

790  CONVERT  as(1, 2]  TO  Ml(l), 3330 

800  CONVERT  AS  14, 16]  Tu  Ml [2], 3330 

610  IF  Ml  [1]  =  21  UR  Mlll]=2>  UR  Ml(l)=26  OH  Ml  [11  =29  THEN  Ml(2J=«Ml(6 
2] 

820 
830 
840 
650 
860 
670 
860 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1060 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 


FOR  11=53  TO  69  STEP  4 

CONVERT  AS  [1 1 ,  11+31  TU  Ml  llIl  +  37/4-HJ  ,3330 
Ml  l(Il*3J/4-Il]=Ml  l(H*3)/4-lll/100U0 
NEAT  II 

IF  AS  [1 , 3} =*05C"  Then  880 
IF  Ml  ISJSO  THEN  Ml  [51=1 
FuR  11=73  TU  77  STEP  2 

CONVERT  ASCII, 11  +  1]  TO  Ml  [  II !♦! ) 72-29] , 3330 
NEXT  11 

IF  M1I9J4Y7  ANO  M1C8JAT7  THEN  00 
Ml  [6]  =M1  [81*100 
Ml  (9J=M1  (91*100 
UUENO 

IF  Ml  [9]  AMI  18]  THEN  Ml  [9]  =Ml  [9 J  ♦  1 00 
Ml  (61  =M1  [61  - Y 7 ♦  1 
Ml  [9]  =Ml  (91-77*1 
16  =  M1  [8] 

FUR  11=1  TU  T5 

IF  1 1 <M 1  [6 J  UR  I1>M1(9]  THEN  1460 
14=0, 13=0, R 1=0, R=0,R2=0 
IF  AS  (1 , 31  =  "05C  "  7 HEN  DO 
IF  Ml  (61  >1  THEN  Mi  [61  =1 

H=  (Ml  (21 -Ml  12]  »Ml  l/J  ]«((1*M1  131)  •Mil-Mi  [8]  7] /Ml  [101 
IF  I1=M1  191  THEN  00 
RsR*  [Ml  [10]  *M  1  [81-11) 

OUENO  . 

I3=M1  ilO] 

IF  Ml  (10] >20  THEN  13  =  20 
IF  F=l  THEN  1170 
I5=M1  (91 

IF  18>1  ANO  Ml  (101  >M1  [9] -Ml  [6]  THEN  OU 
1 5=M1  1101 

IF  I5>20  THEN  15=20 
OUENO 

-  IF  Ml [9] >20  THEN  15=20 
15=15-1 
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1180  FOR  12  =  1  TO  li 

1190  14=14+12 

1200  ink  XT  12 

1210  IF  16>1  AND  Ml  (10)>M1  (91 -Ml  18)  THEN  OU 

1220  GOTO  1200 

1230  UUENU 

1240  FUR  12=1  TU  I5-1+MI C 6 J 

1250  Hl=Hi+(Ml (2J-H1  (2) *M1  (7) ) *12/14 

1260  NEXT  12 

1270  GOTO  1310 

1200  FOR  12=1  TU  IS 

1290  K 1  =Hl  +  (Ml  12  J  -M 1  12J  »M1  (71)  *12/14 

1300  NEXT  12 

1310  R1=R1+Ml  [2]  *M1  17J 

1320  RI=>11  -Ml  (21  *M1  15J 

1330  82=  (Ml  (21  -Ml  (21  *M1  (71  )*(M1  (101  ♦18-11-1) /Ml  110] 

1340  «2=ff2+mi2)*M117) 

1350  H1-<«*-K2)*.l 

1360  Hls-Rl 

1370  Hl=Kl*((l*Ml (31 )**(11-M1  16) ) ) 

1380  R2=N2*((ltiH  13)  )*»(Il-Ml  16)  )) 

1390  M2(11,26)=M2U1,28J+I<1 

1400  M2U1,18)=M2(I1,'18)+H2*.l 

1410  F=1 

1420  GUTO  1450 

1430  DUkNO 

1440  K  =  M1  12)  * ( 1 +M1  (4))*M1  (51*  (Ml  (3)  ♦  1 )  **  ( 1 1  -1 ) 

1450  FOR  12=1  TO  32 

1460  IF  12=M1111  THEN  M2111,12)=M21I1»I2J*H 

1470  NEXT  12 

1480  NEXT  11 

1490  F=0 

1500  MAT  M7=Z£R 

1510  H=0,R1=0 

1520  NEXT  1 

1530  FUR  1=1  TO  T6 

1540  FOR  11=1  TU  7 

1550  REM  M2 (TEAN|9)= TOTAL  OF  LINES  1  THRO  7 

1560  M2  U*9i=M2U,9)tM2II»IlJ 

1570  NEXT  11 

1S60  FUR  11=10  TO  16 

1590  REM  M2(rEAR,17)=TUTAL  OF  LINES  10  THRU  16 

1600  M2ll.l7)=M2(l<171tM2(l,ll) 

1610  NEXT  II 

1620  FUR  11=18  TU  21 

1630  REM  M2(ybARf22)=T0TAL  OF  LINES  18  THRU  21 

1640  M2(1,22)=M21I»221*M2(1,IU 

1650  NEXT  11 

1660  FOR  11=23  TU  29 

1670  HEM  M2(YEAR«30)=T0TAL  OF  LINES  23  THRU  29 

1660  M2(I«30]=M2(If3Q)tM2(lfIl) 

1690  NEXT  11 

1700  NtXT  1 

1710  FOR  1=1  TO  T6 

1720  FOR  11=1  TO  32 

1730  M2  (I <  1 11  »M2  llrIU/100 

1740  REM  RUUNU-UFF  TU  NEAREST  OOLLAfi,  .5  SUES  TO  EVEN 

1750  R*M2(I«llJ-lNT(M2[lrll)) 

1760  IF  RS.5  THtN  OU 

1770  R*INT (M2 (If  111 ) 
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1780  N1=INT(M2(I, 111/21  . 

1790  IF  R/23R1  (Hen  Ou 

1600  M2U,111=INT(M211,I111 

1810  GOTO  1880 

ioeo  ooeno 

1830  OUENO 

1840  M2(l,lll31NT(M2(I,IU+.S} 

1880  NEXT  11 
1880  NEXT  1 

1870  OSllls'OlRECT  material 
1880  08  (21  ="MATfcRlAL  UVEKMEAO 
1690  03  (31 ="OINeCT  LAdUR 

1 90 0  0$  14 J  s "F K INbfc  BENEFITS  UN  DIRECT  LABOR 

1910  03  181 3"UPErATIUNS  OVCNHEAU 

1980  0$  loi s'UThER  UlRECT  COSTS 

1930  0*  l/J s'btNtKAL  AnO  AOMInISTRAT IVfc  EXPENSE 

1940  03 181 =«iNFLAT10N  -  INCLUDED  IN  LINES  1-7#  AS  NEQU1KE0 

1980  03(913"  TofAL 

1960  QSUOls'CONTNACT  PRICE 

1970  U3(111="IkAn3PuNTAJIUN 

1980  OS  (121  *"C0n1raC  f  ADMINISTRATION 

1990  03  (131 ="G0VERNMENT-FuRNI5NE0  PROPER T 7 

8000  03  1141 ="STAN08T  MAINTENANCE 

8010  03 (181 *"UTriER  OUSTS 

8080  US  (161 *"Gen£RAL  ANO  ADMINISTRATIVE  EXPENSE 

8030  03(1713"  TOTAL 

8040  03  (181 3"C0SI  OF  CAPITAL 

8080  03 (191 S"0NE-TIM6  NEW  STAHT  COSTS 

80bO  U»(20Ts"UTmER  COSTS  (AuoITIUnS) 

8070  03  (811 s*OTnE«  COSTS  (OEOUCTIOnSI 
2080  03(2213"  TOTAL 

8090  03  (231  s"COST  OF  CAP1IAL  ON  GOV ' T-FuKNlSHED  FACILITIES 

8100  D3l241="UTIL12AT10N  OF  GOVERNMENT  CAPACITY 

8110  03  (881 s«ONe-TImE  CONVERSION  COSTS 

8120  03  (261 s"OTNeH  COSTS  (A00IT10NS1 

2130  0S(271*"F  EUERAL  INCOME  TAXES 

2140  03  (261 s" (ANNUAL  VALUE  1 

2180  03  1291  *"UTr1EK  COSTS  10EOUCT10NS) 

2160  03(3013"  TOTAL 

2170  03  (311 s"NE«  START 

2160  03  (321 3"CuNVERSIUN 

2190  REM  START  OF  PRINT  ROUTINE 

2200  IMAGE  "LINE  3*»22X# "COST  ELEMENT", 23X, 5 C*TEAR  ",40,6X1 

2210  IMAGE  6UX, "PAGE  NU.*,2U 

2220  IMAGE  20,".  " , 80A , 2X , 8  ( 1 801 

2230  IMAGE  ”  ",80A,2X, 8(1801 

2240  PRINT  CTL (491 

2280  FUR  A4sl  |0  Y6-4  STEP  8 

2260  PRINT  CTL (491 

2270  PRINT  OSING  2210|P 

2280  PRINT 

2290  IF  FsO  THEN  DU 

2300  PRINT  "PERIOD  DATA" 

2310  UOENU 

2320  IF  F*1  THEN  00 

2330  PRINT  "CUMULATIVE  DATA" 

2340  OOENO 
2380  PRINT 
2360  Psptl 

2370  PRINT  USING  2200j(FUR  27*1  TO  5, 22tA4+Z?*ls993Y71 

« 


5 380  PRINT 

5390  IF  F3=l  TH£N  RETURN 

5400  PRINT  "In-HUUSE  PERFORMANCE  (CHAPTER  III)" 

5410  PRINT 
5450  FOR  11=1  TO  35 
5430  IF  11  =  10  THEN  GUSUB  5560 

5440  IF  11=16  THfcU  GUSUB  6oOU 

5450  IF  11=51  THEN  GOSUb  5760 

54b0  IF  11=57  THtN  GUSUB  6760 

5470  IF  11=56  THEN  G06UB  5600 

5460  IF  11=53  THEN  GUSUB  5690 

5490  IF  11=31  THEN  GOSUo  5740 

5500  FRIWl  USING  5550;I1,0S  III) , (FOR  K=A4  TO  A4+4/M5  IK/ 11) ) 

5510  NEXT  II 

5550  GO SUB  5630 

5530  NEXT  A4 

5540  IF  F=1  TncN  JJJO 

5550  GOTO  3550 

5560  PRINT 

5570  PRINT  "PERFORMANCE  BY  CONTRACTlNG-OuT  (CHAPTER  IV)" 

5560  PRINT 
5590  RETURN 
5600  F3=l 
5610  GUSOB  5560 
5660  F3=0 

5630  PRINT  "OTHER  CONSIOErATIONS  (CHAPTtR  V)" 

5640  PRINT 

5650  PRINT  "AOOITIONS  AnU  OEOUCTIONS (-)  TO  IN-HUUSE  PERFORMANCE" 

5660  PRINT 

5670  REm  PRINT  "  A001" 

5660  RETURN 
5090  PRINT 

5700  PRINT  "AOOITIONS  AND  OEOUCTIONS (-)  TO  CONTRACTING  OUT  PERFORMANCE" 
5710  PRINT 

5750  REM  PRINT  "  AOO 5 " 

5730  RETURN 
5740  PK1n7 

5750  PRINT  "MINIMUM  COST  DIFFERENTIAL  (CHAPTER  VI)" 

5760  PRINT 
5770  RETURN 

5760  REM  PRINT  »  OEOUCTJ" 

5790  RETURN 

5600  PRINT  *56.  NET  PROCtEUS  FROM  DISPOSAL  OF  ASSETS" 

5610  PRINT  USING  5530706 (ID , (FOR  K  =  A4  TO  A4*4, M5 [K > 1 1 J ) 

5650  GOTO  5510 
5830  PRINT 

5640  PRINT  "SUMMARY" 

5650  PRINT 

5860  PRINT  "33.  ADJUSTED  COST  OF  IN-HOUSE  PERFORMANCE" 

5870  1=0 

5660  FOR  K=A4  TO  A4*4 
5690  Isitl 

5900  M4  il)=M5  (K,9)  +M5  IK,  55)  tM5  (K,31) 

5910  M5il)=M5 (K, 1 7) +m5 (K,30)+M5(K,35) 

5950  M4(l)=lNT(M4U)t.5) 

5930  M5lI)=lNl(M5(I) 6.5) 

5940  M6  (I)  =M4  11)  “Mb  111 
5950  M7  U)=M4U)»M5(l) 

5960  NEXT'  K 

5970  US  =  "  (LINE  9  ♦  LINE  55  ♦  l»INE  31)  " 
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2980  GuSUB  3310 
2990  FOR  1  =  1  TU  5 
3000  M4UJM5UI 
3010  i«CX7  1 
3020  PH  Iim  T 

3030  PRINT  "3«.  AuJUSTEU  COST  OF  CONTRACT ING-OUT  PERFORMANCE* 

3040  U$  =  "  (CINE  17  ♦  LInE  30  ♦  LINE  32)  • 

3050  GUSUo  3310 
3060  FOR  1=1  TO  5 
3070  M4(1J=M6(U 

3080  NEXT  I 
3090  PRINT 

3100  PRINT  "35.  COST  OF  IN-HOUSE  OVER/UNDER (-)CUST  OF* 

3110  PRINT  *  CONTRACTING-OUT  PERFORMANCE" 

3120  U$="  (LINE  33  -  LINE  34)  " 

3150  G05UB  3310 
3140  PKInT 

3150  PRINT  "3B.  COST  OF  «i*U)  -PERFORMANCE  * 

3180  US="  (LINE  33  ♦  LINE  34)  " 

3170  FOR  1=1  TU  5 

3180  M4  (I J  =M7  11 J 

3190  NEXT  I 

3200  GUSUB  3310 

3210  RETURN 

3220  FOR  1=2  TO  Y6 

3230  IF  V7=0  THEN  GOTO  3350 

3240  FOR  11=1  TO  32 

3250  REM  CONVERSION  OF  M2  ARRAY  FROM  PERIOD  TO  CUMULATIVE  TOTALS 

3280  M2  (I » 11)  =M2  ll.IU  +M2  (1-lrIlJ 

3270  NEXT  II 

3280  NeXT  I 

3290  F=1 

3300  GOTu  2250 

3310  PRINT  USING  223Q;uSr (FOR  K=1  TO  5,M4(IW) 

3320  RETURN 

3330  PRINT  "FAILURE  TU  CONVERT  -  NON-NUMERIC  DATA  IN  FILE" 

3340  END 

3350  HESTORE  #1 

3360  PRINT  CTL (49) 

3370  PRINT  8 

«  FILA 

E  DATA" 

3380  PRINT 

3390  USs "DOLLAR  AmT" 

3400  PRINT  USING  3410TQS 

3410  IMAGE  X,"L1NE"# l OX. 10A, 1 4X , "LEGEND" . 21 X , " INF-F AC " * 3X i "M/U-F AC "» 3X6 
,"0TH-FAC".3X,"rE5-FAC",2X,«BEGIN",2X,"EN0»,3X,»YRS» 

3420  FOR  1=1  TO  1000 
3430  L INPUT  «1;AS 

3440  UN  ENO  » 1  THEN  3660 

3450  IF  AS  (1 » 1J  ="  *  THtN  3650 
3460  CONVERT  AS  (4, 18)  TO  R 
3470  RsR/100 

3480  CONVERT  AS  (53, 56)  TO  G 

3490  GSG/10000 

3500  G=Gt  1 

3510  CONVERT  AS(57«60J  TO  GO 

3520  GOEbO/lVOOO 
3530  G0*G0+1 

3540  CONVERT  AS(6l,64J  TO  G1 
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3550  01=01/10000 

3560  IF  01=0  THtN  01=1 
3570  CONVERT  AS  160 i  72]  TO  02 
3560  02=02/10000 

3500  CONVERT  ASl73,7<il  To  G3 
3t>00  CONVERT  AS  17  5«  7bJ  TO  l>4 

3610  CONvtRT  As  177 1  781  TO  05 

3620  CONVERT  ASll/21  TO  07 

3630  PRINT  USING  36A0JO7, A*C3, 31 ,R,AS119,S21 , G , GO, 01 , G2, 03, g«, 05 
3600  IMAGE  2X,  20 1  A,  4 A,  1 30 . 20 »  4X ,  34A ,  4X ,  0 . 40 , 4X ,  0 . 40 ,  <*X ,  0 . 40 , 4X ,  0 . 40 ,  » 
4X*20«4X»20,4X»20 
3650  NEXT  1 
3660  ENO 


